home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / ARC31.lha / ARC / Install / Install_ARC < prev    next >
Text File  |  1999-01-23  |  11KB  |  293 lines
  1. ; ***************************************************************
  2. ; $VER: ARC v3.0 Installer Script 1.2  (12.11.1998) by Jens Weyer
  3. ; ***************************************************************
  4.  
  5. (set #def_lang_English       0)
  6. (set #def_lang_Deutsch       1)
  7. (set #def_lang_Italiano      2)
  8. (set #def_lang_Srpski        3)
  9. (set #def_lang_Français      4)
  10. (set #def_lang_Svenska       5)
  11. (set #def_lang_Polski        6)
  12.  
  13. (set #def_doc_English       0)
  14. (set #def_doc_Deutsch       1)
  15. (set #def_doc_Italiano      2)
  16. (set #def_doc_Srpski        3)
  17. (set #def_doc_Polski        4)
  18.  
  19. (set #def_cat_lang #def_lang_English)
  20. (set #def_doc_lang #def_doc_English)
  21. (set #wrongOS  "ARC needs at least OS 2.x to run\n")
  22. (set #ARCInst_dir  (cat "Choose ARC directory\n"
  23.                     "(NO extra drawer will be created!)"))
  24. (set #lang_catalog (cat "Which catalog file do you want to install?\n"
  25.                         "(English language is built-in)"))
  26. (set #lang_manual "Select language for AmigaGuide® documentation")
  27. (set #icons_prompt "Which icons do you want to install?\n")
  28. (set #ndx_prompt (cat "Do you want to install the updated\n"
  29.                       "Aminet® Index List ?\n"
  30.                       "(updated: 18-Aug-98)\n"))
  31. (set #brain_prompt (cat "Do you also want to install the\n"
  32.                       "example brainfile ?\n"
  33.                       "(contains only 1 entry !)\n"))
  34. (set #Y "Sure !")
  35. (set #N "Naah...")
  36. (set #done_1   (cat "\nARC has been succesfuly installed.\n\n"
  37.                     "Click the \"ARC\" icon in the\n"))
  38. (set #done_2        "\ndirectory to run it.")
  39.  
  40. (if (= @language "deutsch")
  41.     (
  42.         (set #def_cat_lang #def_lang_Deutsch)
  43.         (set #def_doc_lang #def_doc_Deutsch)
  44.         (set #wrongOS  "ARC benötigt OS 2.x oder höher\n")
  45.         (set #ARCInst_dir  (cat"Wählen Sie ein Verzeichnis für ARC\n"
  46.                            "(es wird KEIN eigenes Verzeichnis erstellt!)"))
  47.         (set #lang_catalog (cat "Welche catalog-Datei wollen Sie installieren?\n"
  48.                                 "(Englisch ist eingebaut)"))
  49.         (set #lang_manual "Wählen Sie eine Sprache für die AmigaGuide® Dokumentation")
  50.         (set #icons_prompt "Welche Piktogramme wollen Sie installieren?")
  51.         (set #ndx_prompt (cat "Wollen Sie die aktualisierte\n"
  52.                               "Aminet® Index Liste installieren ?\n"
  53.                               "(aktualisiert: 18-Aug-98)\n"))
  54.         (set #brain_prompt (cat "Wollen Sie das Beispiel-Brainfile\n"
  55.                               "installieren ?\n"
  56.                               "(enthält nur einen Eintrag !)\n"))
  57.         (set #Y "Natürlich !")
  58.         (set #N "Lieber nicht...")
  59.         (set #done_1   (cat "\nARC wurde erfolgreich installiert.\n\n"
  60.                             "Klicken Sie auf das \"ARC\"-Icon im Verzeichnis,\n"))
  61.         (set #done_2        "\num ARC zu starten.")
  62.     )
  63. )
  64.  
  65. (if (= @language "italiano")
  66.         (
  67.                 (set #def_cat_lang #def_lang_italiano)
  68.                 (set #def_doc_lang #def_doc_italiano)
  69.                 (set #wrongOS  "ARC richiede almeno l'OS 2.x per funzionare\n")
  70.                 (set #ARCInst_dir  (cat "Scegli la directory per ARC\n"
  71.                                     "(Nessun nuovo cassetto sarà creato)"))
  72.                 (set #lang_catalog (cat "Quale catalog vuoi installare?\n"
  73.                                         "(L'inglese è gia predisposto)"))
  74.                 (set #lang_manual "Scegli la lingua per la documentazione in formato AmigaGuide®")
  75.                 (set #icons_prompt "Quale tipo di icone vuoi installare?\n")
  76.                 (set #ndx_prompt (cat "Vuoi installare la lista degli indici\n"
  77.                                       "di Aminet® aggiornata?\n"
  78.                                       "(aggiornata al: 18-Ago-98)\n"))
  79.                 (set #brain_prompt (cat "Vuoi anche installare il\n"
  80.                                         "brainfile d'esempio?\n"
  81.                                         "(contiene solo 1 voce!)\n"))
  82.                 (set #Y "Certo!")
  83.                 (set #N "No...")
  84.                 (set #done_1   (cat "\nARC è stato installato con successo.\n\n"
  85.                                     "Premi l'icona di \"ARC\" nella\n"))
  86.                 (set #done_2        "\nsua directory per lanciarlo.")
  87.         )
  88. )
  89.  
  90. (if (= @language "srpski")
  91.     (
  92.         (set #def_cat_lang #def_lang_Srpski)
  93.         (set #def_doc_lang #def_doc_Srpski)
  94.         (set #wrongOS  "ARC-u je potreban barem OS 2.x\n")
  95.         (set #ARCInst_dir
  96.             (cat "Odaberite direktorijum za ARC\n(Direktorijum NEÁE "
  97.                  "biti napravljen!)"
  98.             )
  99.         )
  100.         (set #lang_catalog
  101.             (cat "Koji katalog äelite da instalirate?\n"
  102.                  "(Za engleski nije potreban nijedan)"
  103.             )
  104.         )
  105.         (set #lang_manual
  106.             (cat "Za koji jezik äelite da instalirate AmigaGuide®"
  107.                  "dokumentaciju?"
  108.             )
  109.         )
  110.         (set #icons_prompt "Koje ikone äelite da instalirate?\n")
  111.         (set #ndx_prompt
  112.             (cat "Da li äelite da instalirate novu\n"
  113.                  "listu direktorijuma na  Aminetu®?\n"
  114.                  "(od 18. avgusta 1998.)\n"
  115.             )
  116.         )
  117.         (set #brain_prompt
  118.             (cat "Da li äelite da instalirate\n"
  119.                  "primer glavnog fajla?\n"
  120.                  "(sadräi samo jedan unos!)\n"
  121.             )
  122.         )
  123.         (set #Y "Da")
  124.         (set #N "Ne")
  125.         (set #done_1
  126.             (cat "\nARC je uspeãno instaliran.\n\n"
  127.                  "Kliknite na ikonu \"ARC\" u\n"
  128.             )
  129.         )
  130.         (set #done_2 "\ndirektorijumu da ga startujete.")
  131.     )
  132. )
  133.  
  134. (if (= @language "polski")
  135.     (
  136.         (set #def_cat_lang #def_lang_Polski)
  137.         (set #def_doc_lang #def_doc_Polski)
  138.                 (set #wrongOS  "ARC potrzebuje przynajmniej OS 2.x.\n")
  139.                 (set #ARCInst_dir
  140.                         (cat "Wybierz katalog dla ARC\n(NIE bëdzie tam utworzony "
  141.                              "nowy katalog!)"
  142.                         )
  143.                 )
  144.                 (set #lang_catalog
  145.                         (cat "Który z plików lokalizacyjnych chcesz zainstalowaê?\n"
  146.                              "(Jëzyk angielski jest wbudowany)"
  147.                         )
  148.                 )
  149.                 (set #lang_manual
  150.                         (cat "Wybierz jëzyk dla dokumentacji w formacie AmigaGuide®"
  151.                         )
  152.                 )
  153.                 (set #icons_prompt "Które ikonki chcesz zainstalowaê?\n")
  154.                 (set #ndx_prompt
  155.                         (cat "Czy chcesz zainstalowaê zaktualizowany\n"
  156.                              "indeks Aminetu®?\n"
  157.                              "(aktualizacja: 18-Sie-98)\n"
  158.                         )
  159.                 )
  160.                 (set #brain_prompt (cat "Czy czcesz równieû zainstalowaê\n"
  161.                                         "przykîadowy plik z danymi?\n"
  162.                                         "(zawiera tylko jeden przykîad!)\n"
  163.                                    )
  164.                 )
  165.                 (set #Y "Tak")
  166.                 (set #N "Nie")
  167.                 (set #done_1  
  168.                         (cat "\nARC zostaî zainstalowany.\n\n"
  169.                              "Kliknij na ikonce \"ARC\" w katalogu\n"
  170.                         )
  171.                 )
  172.                 (set #done_2 "\naby uruchomiê program.")
  173.          )
  174. )
  175.  
  176. ; * Start *
  177.  
  178. (set OS_ver (getversion "exec.library" (resident)))
  179. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  180.  
  181. (complete 0)
  182.  
  183. (set ARC_dir
  184.         (askdir
  185.                 (default "Sys:")
  186.                 (prompt  #ARCInst_dir)
  187.                 (help    @askdir-help)
  188.         )
  189. )
  190.  
  191. (complete 10)
  192.  
  193. (set Catalog_lang
  194.         (askchoice
  195.                 (prompt  #lang_catalog)
  196.                 (help @askoptions-help)
  197.                 (choices "English" "Deutsch" "Italiano" "Srpski" "Français" "Svenska" "Polski" )
  198.                 (default #def_cat_lang)
  199.         )
  200. )
  201.  
  202. (set Docs_lang
  203.         (askchoice
  204.                 (prompt  #lang_manual)
  205.                 (help    @askoptions-help)
  206.                 (choices "English" "Deutsch" "Italiano" "Srpski" "Polski" )
  207.                 (default #def_doc_lang)
  208.         )
  209. )
  210.  
  211. (complete 25)
  212.  
  213. (set Icon_set
  214.         (askchoice
  215.                 (prompt  #icons_prompt)
  216.                 (help    @askoptions-help)
  217.                 (choices "MagicWB" "NewIcons" )
  218.                 (default 1)
  219.         )
  220. )
  221.  
  222. (set NDX
  223.         (askbool
  224.                 (prompt #ndx_prompt)
  225.                 (help @askoptions-help)
  226.                 (choices #Y #N)
  227.         )
  228. )
  229.  
  230. (set BRAIN
  231.         (askbool
  232.                 (prompt #brain_prompt)
  233.                 (help @askoptions-help)
  234.                 (choices #Y #N)
  235.         )
  236. )
  237.  
  238. (complete 50)
  239.  
  240. (makedir ARC_dir (infos))
  241.  
  242. (copyfiles (source "/ARC") (dest ARC_dir) (help @copyfiles-help))
  243. (if (= Icon_set 0)
  244.    (copyfiles (source "/Icons/ARC.info") (dest ARC_dir) (help @copyfiles-help))
  245.    (copyfiles (source "/ARC.info") (dest ARC_dir) (help @copyfiles-help))
  246. )
  247.  
  248. (complete 75)
  249.  
  250. (if (> Catalog_lang 0)
  251.       (
  252.          (set Cat_dir (tackon ARC_dir "Catalogs"))
  253.          (if (not (exists Cat_dir))  (makedir Cat_dir))
  254.          (if (= Catalog_lang #def_lang_Deutsch   ) ((set lang "deutsch") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  255.          (if (= Catalog_lang #def_lang_Italiano   ) ((set lang "italiano") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  256.          (if (= Catalog_lang #def_lang_Srpski   ) ((set lang "srpski") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  257.          (if (= Catalog_lang #def_lang_Français   ) ((set lang "français") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  258.          (if (= Catalog_lang #def_lang_Svenska   ) ((set lang "svenska") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  259.          (if (= Catalog_lang #def_lang_Polski   ) ((set lang "polski") (copyfiles (source (tackon "/Catalogs" lang)) (choices "ARC.catalog") (dest (tackon Cat_dir lang)))))
  260.       )
  261. )
  262.  
  263. (complete 90)
  264.  
  265. (set Doc_dir (tackon ARC_dir "Doc"))
  266.  
  267. (if (= Docs_lang #def_doc_English ) (copyfiles (source "/Doc/ARC.guide")  (dest Doc_dir) (infos)))
  268. (if (= Docs_lang #def_doc_Deutsch ) (copyfiles (source "/Doc/ARC.guide")  (dest Doc_dir) (infos)))
  269. (if (= Docs_lang #def_doc_Italiano ) (copyfiles (source "/Doc/ARC_italiano.guide")  (dest Doc_dir) (newname "ARC.guide") (infos)))
  270. (if (= Docs_lang #def_doc_Srpski ) (copyfiles (source "/Doc/ARC_srpski.guide")  (dest Doc_dir) (newname "ARC.guide") (infos)))
  271. (if (= Docs_lang #def_doc_Polski ) (copyfiles (source "/Doc/ARC_polski.guide")  (dest Doc_dir) (newname "ARC.guide") (infos)))
  272. (if (= Icon_set 1)
  273.    (copyfiles (source "/Doc/ARC.guide.info") (dest Doc_dir) (help @copyfiles-help))
  274.    (copyfiles (source "/Icons/ARC.guide.info") (dest Doc_dir) (help @copyfiles-help))
  275. )
  276.  
  277. (copyfiles (source "/Doc/English") (dest Doc_dir) (help @copyfiles-help))
  278. (copyfiles (source "/Doc/Readme.First") (dest Doc_dir) (help @copyfiles-help))
  279.  
  280.  
  281. (if (= NDX 1)
  282.    (copyfiles (source "/ARC.NDX") (dest ARC_dir) (help @copyfiles-help))
  283. )
  284.  
  285. (if (= BRAIN 1)
  286.    (copyfiles (source "/ARC.brain") (dest ARC_dir) (help @copyfiles-help))
  287. )
  288.  
  289. (complete 100)
  290. (message #done_1 "\"" ARC_dir "\"" #done_2)
  291.  
  292. (exit (QUIET))
  293.